home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / misc / benchmarks / gc / cnolfo / point.e < prev    next >
Text File  |  2000-03-25  |  129b  |  16 lines

  1. class POINT
  2.  
  3. creation make
  4.  
  5. feature
  6.  
  7.    x, y: DOUBLE;
  8.  
  9.    make(vx, vy: DOUBLE) is
  10.       do
  11.      x := vx;
  12.      y := vy;
  13.       end;
  14.  
  15. end
  16.